Startware 8/startware 8.iso/data/Software/Internet/drag and mail/DRAGMAIL.EXE/0/RCDATA/TFRMMAILTO/TFRMMAILTO.txt

Text File | 1997-07-13 | 7.1 KB | 326 lines

object frmMailTo: TfrmMailTo
  Left = 266
  Top = 99
  Width = 429
  Height = 312
  BorderIcons = [biSystemMenu, biMinimize]
  Caption = 'Drag '#39'n Mail 1.0'
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OnActivate = FormActivate
  OnClose = FormClose
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object lstAddresses: TListBox
    Left = 0
    Top = 119
    Width = 421
    Height = 166
    Hint = 'RightClick for more options...'
    Align = alClient
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ItemHeight = 13
    MultiSelect = True
    ParentFont = False
    ParentShowHint = False
    PopupMenu = popAddresses
    ShowHint = True
    Sorted = True
    TabOrder = 0
    OnDblClick = lstAddressesDblClick
  end
  object pnlControl: TPanel
    Left = 0
    Top = 0
    Width = 421
    Height = 77
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 1
    object Label1: TLabel
      Left = 5
      Top = 59
      Width = 192
      Height = 13
      Caption = 'Select addresses to mail dragged files to:'
    end
    object Button1: TButton
      Left = 5
      Top = 6
      Width = 48
      Height = 19
      Hint = 'Add email address at right to list...'
      Caption = '&Add:'
      Default = True
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      OnClick = Button1Click
    end
    object txtAddress: TEdit
      Left = 58
      Top = 5
      Width = 280
      Height = 21
      Hint = 'Enter email address to add...'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 1
    end
    object Button3: TButton
      Left = 122
      Top = 30
      Width = 97
      Height = 19
      Caption = 'Add &Email List...'
      TabOrder = 2
      OnClick = Button3Click
    end
    object btnHidePanel: TButton
      Left = 344
      Top = 6
      Width = 75
      Height = 19
      Hint = 'Hide this panel...'
      Caption = 'Hi&de Panel'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 3
      OnClick = btnHidePanelClick
    end
    object btnSetup: TButton
      Left = 344
      Top = 30
      Width = 75
      Height = 19
      Caption = '&Setup...'
      TabOrder = 4
      OnClick = btnSetupClick
    end
    object Button5: TButton
      Left = 344
      Top = 54
      Width = 76
      Height = 19
      Caption = '&Help'
      ModalResult = 1
      TabOrder = 5
      OnClick = Button5Click
    end
    object btnRemSelected: TButton
      Left = 5
      Top = 30
      Width = 111
      Height = 19
      Caption = '&Remove selected'
      TabOrder = 6
      OnClick = btnRemSelectedClick
    end
    object btnColor: TButton
      Left = 297
      Top = 30
      Width = 41
      Height = 19
      Hint = 'Set background color...'
      Caption = '&Color'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 7
      OnClick = btnColorClick
    end
    object btnFont: TButton
      Left = 248
      Top = 30
      Width = 44
      Height = 19
      Hint = 'Set font and properties...'
      Caption = '&Font'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 8
      OnClick = Button7Click
    end
    object btnRegister: TButton
      Left = 248
      Top = 54
      Width = 90
      Height = 19
      Caption = 'Register!'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ModalResult = 1
      ParentFont = False
      TabOrder = 9
      OnClick = btnRegisterClick
    end
  end
  object pnlSending: TPanel
    Left = 0
    Top = 77
    Width = 421
    Height = 42
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 2
    Visible = False
    object pnlStatus: TPanel
      Left = 0
      Top = 0
      Width = 421
      Height = 21
      Align = alClient
      Alignment = taLeftJustify
      BevelOuter = bvNone
      Caption = '             Starting...'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 1
    end
    object Button2: TButton
      Left = 2
      Top = 2
      Width = 47
      Height = 18
      Cancel = True
      Caption = 'Cancel'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ModalResult = 2
      ParentFont = False
      TabOrder = 0
      OnClick = btnCancelClick
    end
    object pnlPercmeter: TPanel
      Left = 0
      Top = 21
      Width = 421
      Height = 21
      Align = alBottom
      BevelInner = bvLowered
      BevelOuter = bvNone
      BorderWidth = 2
      TabOrder = 2
      object prcMeter: TGauge
        Left = 3
        Top = 3
        Width = 415
        Height = 15
        Align = alClient
        BorderStyle = bsNone
        ForeColor = clMaroon
        BackColor = clWindow
        Progress = 0
      end
    end
  end
  object openText: TOpenDialog
    FileEditStyle = fsEdit
    Filter = 'All files (*.*)|*.*|Text files (*.txt)|*.txt'
    InitialDir = '.'
    Options = [ofHideReadOnly, ofPathMustExist, ofFileMustExist]
    Title = 'Select text list of email addresses...'
    Left = 120
    Top = 12
  end
  object dlgColor: TColorDialog
    Ctl3D = True
    Left = 223
    Top = 12
  end
  object popAddresses: TPopupMenu
    Left = 80
    Top = 156
    object popAddAddress: TMenuItem
      Caption = '&Add Address/List...'
      ShortCut = 45
      OnClick = popAddAddressClick
    end
    object Editselected1: TMenuItem
      Caption = '&Edit Selected...'
      ShortCut = 0
      OnClick = Editselected1Click
    end
    object Removeselected1: TMenuItem
      Caption = '&Remove Selected'
      ShortCut = 46
      OnClick = Removeselected1Click
    end
    object N3: TMenuItem
      Caption = '-'
      ShortCut = 0
    end
    object MailtoSelected1: TMenuItem
      Caption = '&Mail To Selected (no files)...'
      ShortCut = 16461
      OnClick = MailtoSelected1Click
    end
    object N1: TMenuItem
      Caption = '-'
      ShortCut = 0
    end
    object popHidepanel: TMenuItem
      Caption = '&Hide Panel'
      ShortCut = 0
      OnClick = popHidepanelClick
    end
    object ShowPanel1: TMenuItem
      Caption = '&Show Panel'
      ShortCut = 0
      OnClick = ShowPanel1Click
    end
    object Setup1: TMenuItem
      Caption = '&Setup...'
      ShortCut = 16467
      OnClick = Setup1Click
    end
    object N2: TMenuItem
      Caption = '-'
      ShortCut = 0
    end
    object Exit1: TMenuItem
      Caption = 'E&xit'
      ShortCut = 16472
      OnClick = Exit1Click
    end
  end
  object Mailer: TSMTP
    CharSet = csUSASCII
    DefaultPort = 25
    OnStatusChange = MailerStatusChange
    OnProgress = MailerProgress
    Left = 182
    Top = 11
  end
  object dlgFont: TFontDialog
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    MinFontSize = 0
    MaxFontSize = 0
    Left = 257
    Top = 13
  end
  object Validator: TValidator
    RandSeed = 54102347
    OnVldOk = ValidatorVldOk
    OnVldFailed = ValidatorVldFailed
    Left = 138
    Top = 161
  end
end